home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / scroll.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  614b  |  30 lines
  1. /* ORC - Scrolls a message on the status line marquee style  -Mustang  
  2. think about messages like
  3.  
  4. /scroll 5 Users in this channel
  5. /scroll x users are online the BBS currently
  6. /scroll You have been idle for xxx min sec
  7.  
  8. would be cool
  9.  
  10.  */
  11. options results
  12. parse arg orcport a1
  13.  
  14. size = 28
  15. i = 1
  16. address value orcport
  17. cnetircvar d
  18. parse var result col row
  19. col = col-size
  20. row = row-1
  21. a1 = copies(' ',size)||a1||copies(' ',size)
  22. len = length(a1)
  23. do while i < (len-size+2)
  24.   str = substr(a1, i, size)
  25.   i = i+1
  26.   cnetirccmd '/""'||'1b'x||'['row';'col'H'||'1b'x||'[31m'||'1b'x||'[44m'str
  27.   Delay(4)
  28. end
  29. cnetirccmd '/c x'
  30.